home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304E.ZIP;1 / EXPAS.ARJ / FGDOC / EXAMPLES / PASCAL / 03-09.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-24  |  934 b   |  42 lines
  1. program main;
  2. uses fgmain, fgsvga;
  3.  
  4. const
  5.   description : array [0..22] of string = (
  6.     'cannot be determined',
  7.     'VESA',
  8.     'Ahead A',
  9.     'Ahead B',
  10.     'ATI 18800',
  11.     'ATI 18800-1',
  12.     'ATI 28800',
  13.     'Chips & Technologies 82c451/455/456',
  14.     'Chips & Technologies 82c452',
  15.     'Chips & Technologies 82c453',
  16.     'Genoa 6000 series',
  17.     'Oak OTI-067',
  18.     'Paradise PVGA1a',
  19.     'Paradise WD90C00/WD90C10',
  20.     'Paradise WD90C11/WD90C30/WD90C31',
  21.     'Trident 8800',
  22.     'Trident 8900',
  23.     'Tseng ET3000',
  24.     'Tseng ET4000',
  25.     'Video7',
  26.     'Cirrus Logic 5400 series',
  27.     'S3',
  28.     'Trident 8900B/8900C/9000'
  29.     );
  30.  
  31. var
  32.   id : integer;
  33.   major, minor : integer;
  34.  
  35. begin
  36.   id := fg_svgainit(0);
  37.   writeln('SVGA chipset:  ',description[id]);
  38.   writeln('video memory:  ',fg_memory,' kilobytes');
  39.   fg_svgaver(major,minor);
  40.   writeln('SVGA version:  ',major,'.',minor:2);
  41. end.
  42.